function [ Fres ] = finEffect( vel, error )
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here

    Cdfnose = .05; %unitless (friction)
    Fdragnose = -.5 * rho * Cdfnose * dot(abs([cost sint]), [0 nosefin_area]) * norm(vel) * vel; %TODO: fix this so that area is relative to velocity, not vertical line
    Tdragnose = Cnose * dot([-cos(theta + nosetheta) sin(theta + nosetheta)], Fdragnose);
    Cl_nose = 2 * pi * velocity_angle;
    Fliftnose = 0.5 * Cl * rho * nosefin_area * norm(vel) * vel * [0 -1; 1 0];
    Tliftnose = dot([sin(theta - pi/2) cos(theta - pi/2)], Fliftnose) * Cnose;

end

